#!/usr/bin/perl
$texte="Il y a 2 mois, ce n'est pas toi qui a d�couvert cette vieille armoire, cach�e sous la toiture\n.
Moi, je te dis que c'est bien moi, il y a 2 ou 3 mois ";
$motif=<>;
chomp($motif);
open(OUT,">sortie.html");
print OUT "<html><body style=\"color:white;\" bgcolor=\"black\">\n";
# print OUT "<p align=\"center\" style=\"color:yellow;\"> Recherche de $motif1 et $motif2 partout dans le texte</p>";
$texte1=$texte;
$texte =~s/\,/ /g;
$texte =~s/\./ /g;
$texte =~s/\'/ /g;

@tab_mots = split(/ /,$texte);
$nbre_occ=0;
for (my $i=0; $i<=$#tab_mots-1; $i++)
{
    if(lc($tab_mots[$i])=~lc($motif))
    {
	$nbre_occ+=1;
    }
}
print OUT "<p align=\"center\" style=\"color:yellow;\"> Recherche de motif \"$motif\"  partout dans le texte apparait $nbre_occ fois</p>";
$nbre_occ=0;
for (my $i=0;$i<$#tab_mots;$i++)
{
  if(lc($motif) ne lc($tab_mots[$i]))
    {
      if(lc($tab_mots[$i])=~lc($motif))
    {
	$nbre_occ+=1;
    }
  }
}
print OUT "<p align=\"center\" style=\"color:yellow;\"> les sous-chaines de motif \"$motif\" apparait $nbre_occ fois</p>";
$nbre_occ=0;
for (my $i=0;$i<$#tab_mots;$i++)
{
    if($tab_mots[$i] =~ ucfirst($motif))
    {
	$nbre_occ+=1;
    }
}
print OUT "<p align=\"center\" style=\"color:yellow;\"> le motif \"$motif\" au debut de la phrase apparait $nbre_occ fois</p>";
print OUT "</body></html>";
close(OUT);